home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen… 1994 February Supplement / ARPL-Feb-94-Supplement-PowerPC.iso / 3rd Party PowerPC Demo Apps / Aldus FreeHand / Aldus FreeHand 4.0 TV / Aldus FreeHand 4.0 TV.rsrc / Post_1067 < prev    next >
Encoding:
Text File  |  1994-01-25  |  376 b   |  12 lines
  1. /inlin
  2. { /miter_lim xdf /iterations xdf /fgstroke xdf /bgstroke xdf
  3. /tc2 xdf /tc1 xdf /textblock xdf
  4. 1.0 miter_lim 2 div sin div M
  5. {
  6.  /textblock load tc1 fgstroke bgstroke add iterations mul stol
  7.  /textblock load tc2 fgstroke bgstroke add iterations mul fgstroke sub stol
  8.  /iterations iterations 1 sub def iterations 0 eq {exit} if
  9. } loop
  10. /textblock load false tc1 sts
  11. } bdf